home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_9.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  1.1 KB  |  36 lines

  1. on enterFrame
  2.   global experimenterMenu
  3.   set ActiveStartspr to 3
  4.   set correspondre to ActiveStartspr
  5.   set startBalls to 4
  6.   set seBrancherBall to startBalls
  7.   set diffuserBall to startBalls + 1
  8.   set correspondreBall to startBalls + 2
  9.   set echangerBall to startBalls + 3
  10.   set naviguerBall to startBalls + 4
  11.   set courrierElectroniqueBall to startBalls + 5
  12.   set startHighLightSpr to 10
  13.   set courrierElectronique to startHighLightSpr
  14.   set startHotSpot to 11
  15.   set courrierElectroniqueHS to startHotSpot
  16.   set ro to rollOver()
  17.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), courrierElectronique, courrierElectronique)
  18.   case ro of
  19.     correspondre, correspondreBall:
  20.       go(the frame)
  21.     courrierElectroniqueHS, courrierElectroniqueBall:
  22.       puppetSprite(courrierElectronique, 1)
  23.       set the member of sprite courrierElectronique to member "courrierElectroniqueLight"
  24.       updateStage()
  25.       go(the frame)
  26.     otherwise:
  27.       depuppetize(courrierElectronique, courrierElectronique)
  28.       updateStage()
  29.       go("correspondreClose")
  30.   end case
  31. end
  32.  
  33. on exitFrame
  34.   go(the frame)
  35. end
  36.